home *** CD-ROM | disk | FTP | other *** search
/ Univers Mac Interactif 53 / Univers Mac Interactif - Issue 53.iso / UNIVERS MAC 53 / Hypercard / La pile du mois nº53 ƒ / La pile du mois nº53 / La pile du mois n∫53 / background_2723.xml next >
Extensible Markup Language  |  1995-11-25  |  7KB  |  107 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2723</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_2533.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3174.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>388</left>
  23.             <top>268</top>
  24.             <right>404</right>
  25.             <bottom>304</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>8979</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name></name>
  40.         <script>on mouseUpnav next,right -- Voyez le script du fondend mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>2</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>372</left>
  54.             <top>268</top>
  55.             <right>387</right>
  56.             <bottom>304</bottom>
  57.         </rect>
  58.         <style>transparent</style>
  59.         <showName> <false /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <true /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>8964</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Chicago</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name></name>
  71.         <script>on mouseUpnav prev,left -- Voyez le script du fondend mouseUp</script>
  72.     </part>
  73.     <part>
  74.         <id>3</id>
  75.         <type>button</type>
  76.         <visible> <true /> </visible>
  77.         <reserved5> 0 </reserved5>
  78.         <reserved4> 0 </reserved4>
  79.         <reserved3> 0 </reserved3>
  80.         <reserved2> 0 </reserved2>
  81.         <reserved1> 0 </reserved1>
  82.         <enabled> <true /> </enabled>
  83.         <rect>
  84.             <left>194</left>
  85.             <top>274</top>
  86.             <right>362</right>
  87.             <bottom>298</bottom>
  88.         </rect>
  89.         <style>transparent</style>
  90.         <showName> <false /> </showName>
  91.         <highlight> <false /> </highlight>
  92.         <autoHighlight> <false /> </autoHighlight>
  93.         <sharedHighlight> <true /> </sharedHighlight>
  94.         <family>0</family>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>0</icon>
  97.         <textAlign>center</textAlign>
  98.         <font>Chicago</font>
  99.         <textSize>12</textSize>
  100.         <textStyle>plain</textStyle>
  101.         <name></name>
  102.         <script>on mouseUpdoMenu "About HyperCard..."end mouseUp</script>
  103.     </part>
  104.     <name></name>
  105.     <script>on commandKeyDownif (charToNum(param(1)) = 112) thenif (there is a cd fld "Infos") thenhide groupsprint cd fld "Infos"show groupsend ifelse pass commandKeyDownend commandKeyDown------------------------------------------------------------------------on arrowKeyget param(1)if it = right then send mouseUp to bg btn id 1else if it = left then send mouseUp to bg btn id 2end arrowKey------------------------------------------------------------------------on nav direction,waydo "go"&&directionif there is a cd fld "Infos" in recent cd then set scroll of cd fld "Infos" of recent cd to 0unlock screen with visual wipe wayend nav------------------------------------------------------------------------on closeCardput the windows into theWindowsif "script" is in theWindows thenrepeat with i = the number of lines of theWindows down to 1get line i of theWindowsif script is in it then close window itend repeatend ifend closeCard------------------------------------------------------------------------on closeStacklock screenset the showPict of cd 1 to falserepeat with i = 1 to 5hide cd fld i of cd 1end repeatquitSanFaute -- ‚àÜend closeStack------------------------------------------------------------------------on openStackcheckForLockedDisk -- ‚àÜcheckForVersion -- ‚àÜget trunc((item 3 of the screenRect - width of cd window)/2)&","&trunc((item 4 of the screenRect - height of cd window)/2)set the loc of cd window to itend openStack------------------------------------------------------------------------on checkForVersionget the versionif it < 2 thenanswer "Cette pile ne peut √™tre ouverte avec une version d'HyperCard"¬¨&&"ant√©rieure √† 2.0." with "D√©sol√©"doMenu "Quit HyperCard"end ifend checkForVersion------------------------------------------------------------------------on checkForLockedDiskif the cantModify of this stack thenbeepanswer short name of this stack&&"ne peut fonctionner √† partir du CD-Rom : copiez-la"¬¨&&"pr√©alablement sur votre disque dur."set cursor to 4if the number of lines of the stacks > 1 then send "doMenu Close Stack" to HyperCardelse go backexit to HyperCardend ifend checkForLockedDisk------------------------------------------------------------------------on doMenuif param(1) = "About HyperCard..." thenpromptIt "About"wait until the mouseClickpromptIt "About"else pass doMenuend doMenu------------------------------------------------------------------------on promptIt whichPictif there is no window whichPict thenpicture whichPict,resource,dialog,false,0,true -- ‚àÜX-- cr√©e la fen√™tre mais ne l'affiche pasget trunc((width of cd window-pictureWidth of window whichPict)/2)&","&trunc((height of cd window-pictureHeight of window whichPict)/2)-- calcule les coordonn√©es du coin haut gauche de la fen√™tre externe-- de telle fa√ßon √† ce que l'affichage soit centr√© sur la fen√™tre de carteset the loc of window whichPict to it-- la positionne correctementshow window whichPict-- la montreelse close window whichPict-- la fermeend promptIt-----------------------------------------function playerset the userLevel to 5return (the userLevel ‚↠5)end player-----------------------------------------function fullPathToFileName longNamerepeat until ":" is not in longNamedelete char 1 to offset(":",longName) of longNameend repeatreturn longNameend fullPathToFileName-----------------------------------------on quitSanFauteif there is a menu "Application" thenif "Sans-Faute" is in menu "Application" thenopen "QuitSF"end ifend ifend quitSanFaute</script>
  106. </background>
  107.